MacFormat 2000 July/macformat-092.iso/MacFormat 92 CD/Shareware Plus/Utilities/FolderSynchronizer 1.8.9/PlugIn/Dialog/00001_sGeneral.ls

Text File | 2000-04-17 | 4.0 KB | 185 lines

on startMovie
  global Nero, Bianco, gCHKSubFolder
  set Nero to the foreColor of member "Nero"
  set Bianco to the foreColor of member "Bianco"
end

on AlertOK
  global myMainWindow, gNextProcedura1
  set myDialog to the pathName & "dialog"
  close(window myDialog)
  updateStage()
  if voidp(myMainWindow) then
    tell the stage
      do(gNextProcedura1)
    end tell
  else
    tell window myMainWindow
      do(gNextProcedura1)
    end tell
  end if
end

on moveWindow
  global gRectWindDate, gRectWindTimerHour
  case the frameLabel of
    "PrefDate":
      set gRectWindDate to the rect of the frontWindow
    "TimerHour":
      set gRectWindTimerHour to the rect of the frontWindow
  end case
end

on closeWindow
  tell the stage
    do("InitMenu")
  end tell
end

on SiNoOK
  global Mittente, gNextProcedura1, gNextProcedura2, myMainWindow
  if gNextProcedura1 = "myquit" then
    tell the stage
      beep()
    end tell
  else
    set myDialog to the pathName & "dialog"
    close(window myDialog)
    updateStage()
    if voidp(myMainWindow) then
      tell the stage
        do(gNextProcedura1)
      end tell
    else
      tell window myMainWindow
        do(gNextProcedura1)
      end tell
    end if
  end if
end

on SiNoCancel
  global Mittente, gNextProcedura1, gNextProcedura2, myMainWindow
  set myDialog to the pathName & "dialog"
  close(window myDialog)
  updateStage()
  if voidp(myMainWindow) then
    tell the stage
      do(gNextProcedura2)
    end tell
  else
    tell window myMainWindow
      do(gNextProcedura2)
    end tell
  end if
end

on VariabileOK
  global Risposta
  set myDialog to the pathName & "dialog"
  set Risposta to the text of member "P1"
  set ProssimoScript to the text of member "gNextProcedura1"
  close(window myDialog)
  tell the stage
    set Risposta to Risposta
  end tell
  tell the stage
    do(ProssimoScript & " Risposta")
  end tell
end

on Variabile3
  global Risposta
  set myDialog to the pathName & "dialog"
  set Risposta to the text of member "P3"
  set ProssimoScript to the text of member "gNextProcedura2"
  close(window myDialog)
  tell the stage
    set Risposta to Risposta
  end tell
  tell the stage
    do(ProssimoScript & " Risposta")
  end tell
end

on VariabileCancel
  global Risposta
  set myDialog to the pathName & "dialog"
  set Risposta to the text of member "P2"
  set ProssimoScript to the text of member "gNextProcedura3"
  close(window myDialog)
  tell the stage
    set Risposta to Risposta
  end tell
  tell the stage
    do(ProssimoScript & " Risposta")
  end tell
end

on SetDateOK
  global gNextProcedura1, gDay, gMonth, gYear
  if gNextProcedura1 = "myquit" then
    tell the stage
      beep()
    end tell
  else
    set gDay to field "fGiorno"
    set gMonth to field "fMese"
    set gYear to field "fAnno"
    if (gDay = EMPTY) or (gDay = 0) or (gMonth = EMPTY) or (gMonth = 0) or (gYear = EMPTY) or (gYear = 0) then
      NoPassDate()
    end if
    if length(gYear) = 2 then
      set gYear to Sinistra(OSConstDate(), 2) & gYear
    end if
    if value(gDay) > MaxGiorno() then
      NoPassDate()
    end if
    set myDialog to the pathName & "dialog"
    set ProssimoScript to gNextProcedura1
    close(window myDialog)
    updateStage()
    tell the stage
      do(ProssimoScript)
    end tell
  end if
end

on NoPassDate
  alert("No valid Date.")
  abort()
end

on SetTimerHourOK
  global gNextProcedura1, gHour, gMinute
  if gNextProcedura1 = "myquit" then
    tell the stage
      beep()
    end tell
  else
    set gHour to field "fHour"
    set gMinute to field "fMinute"
    if (gHour = EMPTY) or (value(gHour) > 23) or (gMinute = EMPTY) or (value(gMinute) > 59) then
      NoPassHour()
    end if
    if length(gHour) = 1 then
      set gHour to "0" & gHour
    end if
    if length(gMinute) = 1 then
      set gMinute to "0" & gMinute
    end if
    set myDialog to the pathName & "dialog"
    set ProssimoScript to gNextProcedura1
    close(window myDialog)
    updateStage()
    tell the stage
      do(ProssimoScript)
    end tell
  end if
end

on NoPassHour
  alert("No valid Hour.")
  abort()
end